﻿namespace DiffLCS

open System

module internal List =
    let toString (xs : char list) =
        xs |> List.toArray
           |> (fun arr -> new String(arr))